Population distribution and inequality
wards_SA_ordered <- readRDS("assets/wards_SA_ordered.rds")
wards_SA_ordered@data$DENSITY <- round(wards_SA_ordered@data$DENSITY, digits=1)
The distribution of population density accross South Africa is very skewed. Mean population density in South Africa is 42.4 people/km2. Another consideration is the unequal distribution of electricity (which is less kWh/person now than it was at the end of Apartheid in 1994.
library(ggplot2)
ggplot(aes(x=DENSITY), data=wards_SA_ordered@data) +
geom_histogram(binwidth=1000,color = "white") +
ggtitle("Population density in South Africa's 4277 Wards") +
labs(x="Density in people/sq km",y="Number of wards")
